<?php
#
#
# Copyright TEDECO, 2009. http://tedeco.fi.upm.es
#
# This file is part of kumenya.
#
# Kumenya is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# Kumenya is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
#
#
#
?>
<?php
	include("../commons/classes.php");
	include("../commons/www.php");
	include(Action . "LedgerBalanceResult.php");

	Interfaz::Header(_("Ledger Balance") . " " . _("Result"));

	Interfaz::OpenBody(FALSE);

if ($result) {
	if ($openFile)
		Interfaz::OpenFile($link);

	Interfaz::Buttons ();
	Interfaz::Form (Page. "LedgerBalanceResults.php");
	Interfaz::NavigationButton (_("Back"), Page. "LedgerBalanceCriterias.php", "Back");

	Interfaz::FileType('Excel');
	Interfaz::SubmitButton(_("Print"));

	Interfaz::CloseButtons ();
	Interfaz::Send(Interfaz::Data());
	Interfaz::CloseForm ();
	
//	echo "General Balance Sheet<BR/>";
	
	if ($multipleSearch) {
		foreach ($table as $key => $data)
			Interfaz::LedgerBalance($accountData[$key], $data, $total[$key]);
	}
	else
		Interfaz::LedgerBalance(Interfaz::Data(), $table, $total);

	Interfaz::Form (Page. "LedgerBalanceCriterias.php", "Back");
	Interfaz::Send (Interfaz::RecordedData());
	Interfaz::CloseForm ();

}
else {
	Interfaz::Form (Page. "LedgerBalanceCriterias.php", "Back");
	Interfaz::Buttons ();
	Interfaz::Send (Interfaz::RecordedData());
	Interfaz::SubmitButton(_("Back"));
	Interfaz::CloseForm ();
	Interfaz::CloseButtons ();

	$error = Interfaz::Error();	
	echo _("THERE IS AN ERROR") . ": " . _($error);

}
	Interfaz::End();
?>